f <- function(){
	a = 1
	#a$b <- 2
	a["b"] <- 2
	a$b
	a$c
}
f()
